Top 10k strings from Rjob (1987)(Salmi, Timo).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /
Back to the directory listing
1 32260 END DEFine vsave
1 32250 PRINT#0,"Saved"!b$!"version"!ver1%;".";ver%
1 32240 LIST#3,32130 TO:CLOSE#3
1 32230 PRINT#3,"32120 ver1%=";ver1%;":ver2%=";ver%
1 32220 LIST#3,100 TO 32110
1 32210 PRINT#3,"4 :"
1 32200 PRINT#3,"3 REMark version"!ver1%;".";ver%
1 32190 PRINT#3,"2 REMark ";DAY$!DATE$
1 32180 PRINT#3,"1 REMark ";a$!"(c) Timo Salmi"
1 32170 DELETE b$:OPEN_NEW#3,b$:ver%=ver2%+1
1 32160 b$=d$(dr)&a$
1 32150 d$(5)="ram1_":d$(6)="ram2_"
1 32140 d$(3)="fdk1_":d$(4)="fdk2_"
1 32130 d$(1)="mdv1_":d$(2)="mdv2_"
1 32120 ver1%=1:ver2%=1
1 32110 BEEP 4000,12:STOP:END IF
1 32100 PRINT#0,DAY$!DATE$!"Not saved, set SDATE"
1 32090 IF b$<>1987 THEN
1 32080 b$=DATE$:b$=b$(1 TO 4)
1 32070 LOCal a$,b$,d$(6,5):a$="rjob"
1 32060 DEFine PROCedure vsave(dr)
1 32050 vsave 6:STOP
1 32040 vsave 5:STOP
1 32030 vsave 4:STOP
1 32020 vsave 3:STOP
1 32010 vsave 2:STOP
1 32000 vsave 1:STOP
1 31990 STOP
1 31110 END DEFine reset
1 31100 SCALE 100,0,0:FILL 0
1 31090 PAPER#0,0:INK#0,7-3*(i=0):INK 7:CLS
1 31080 FOR il=0,1,2:CSIZE#il,(i=4)+2*(i=8),0:END FOR il
1 31070 PAPER 2*(i=8):BORDER (i=4),4*(i=4)
1 31060 WINDOW 448+8*(i=4),200+2*(i=4),32-4*(i=4),16-(i=4)
1 31050 WINDOW#0,448,40-(i=4),32,216+(i=4)
1 31040 PAPER#2,1:INK#2,7
1 31030 OPEN#2,con_:WINDOW#2,448,200,32,16
1 31020 WINDOW 513,256,0,0:PAPER 0:CLS
1 31010 LOCal il:MODE i
1 31000 DEFine PROCedure reset(i)
1 30090 END DEFine p_elapsed
1 30080 PRINT#ch%,sl DIV 10;sl MOD 10
1 30070 PRINT#ch%,ml DIV 10;ml MOD 10;":";
1 30060 PRINT#ch%,tl DIV 10;tl MOD 10;":";
1 30050 ml=INT(sl/60):sl=sl-60*ml
1 30040 tl=INT(sl/3600):sl=sl-tl*3600
1 30030 sl=DATE-kokoaika
1 30020 PRINT#ch%,"ELAPSED"!;
1 30010 LOCal tl,ml,sl
1 30000 DEFine PROCedure p_elapsed(ch%)
1 3 REMark version 1.1
1 28620 END DEFine f_kysynoye
1 28610 END REPeat kysy
1 28600 p_beep1
1 28590 IF vl$=="y" THEN RETurn 1
1 28580 IF vl$=="n" THEN RETurn 0
1 28570 IF vl$="" THEN vl$=oletus$
1 28560 INK 7:PRINT ml$;:clb=KEYROW(0):INPUT vl$
1 28550 REPeat kysy
1 28540 ELSE :ml$=mj$&" (N,y)? ":END IF
1 28530 ml$=mj$&" (n,Y)? "
1 28520 IF oletus$=="y" THEN
1 28510 LOCal vl$(3),kysy,ml$(50)
1 28500 DEFine FuNction f_kysynoye(mj$,oletus$)
1 280 JOBS:PRINT:p_elapsed(1)
1 270 END REPeat tyo
1 260 END IF
1 250 PRINT"REMOVED"!jb$
1 240 RJOB (jobid),(1):jobid=edjobid
1 230 IF f_kysynoye((mj$),("N")) THEN
1 220 mj$="REMOVE JOB "&jb$
1 210 IF jb$=="rjob_exe" THEN NEXT tyo
1 20130 END DEFine p_tsotsake
1 20120 INK#3,2:CURSOR#3,il2%,0:PRINT#3,tpvm$:CLOSE#3
1 20110 FOR i=1 TO 10:READ il%:PRINT#3,CHR$(il%);:END FOR i
1 20100 DATA 84,105,109,111,32,83,97,108,109,105
1 20090 INK#3,4:CURSOR#3,il1%,0:RESTORE 20100
1 20080 il1%=(il2%+(4+4*il%)*LEN(ohj$)-35-40*il%)/2
1 20070 il2%=levg%-(4+4*il%)*LEN(tpvm$)-4-5*(il%<3)
1 20060 CURSOR#3,5,0:INK#3,6:PRINT#3,ohj$
1 20050 PAPER#3,0:CLS#3:BORDER#3,1,7:CSIZE#3,il%,1
1 20040 OPEN#3,con_:WINDOW#3,levg%,22,alkug%,16
1 20030 WINDOW 512,256,0,0:PAPER 0:CLS
1 20020 levg%=448:alkug%=INT((512-levg%)/2)
1 20010 LOCal il1%,il2%,il%,i:MODE 8:il%=2
1 20000 DEFine PROCedure p_tsotsake(ohj$,tpvm$)
1 200 jb$=JOB$(jobid)
1 2 REMark Sun 1987 Aug 09 18:50:19
1 19020 END DEFine p_beep1
1 19010 BEEP 800,12
1 19000 DEFine PROCedure p_beep1
1 190 IF jobid=0 THEN EXIT tyo
1 180 edjobid=jobid:jobid=NXJOB((jobid),(0))
1 17060 END DEFine p_ikkunat
1 17040 PAPER#1,2:BORDER#1,0,0:CSIZE#1,2,0:CLS#1
1 17020 WINDOW#1,levg%,10*rv%,alkug%,38
1 17010 LOCal rv%:rv%=19
1 17000 DEFine PROCedure p_ikkunat
1 170 REPeat tyo
1 160 JOBS:PRINT:jobid=0
1 140 p_ikkunat
1 130 p_tsotsake("Remove JOBs"),("09.08.87")
1 120 DIM jb$(mp),mj$(mp)
1 110 DIM ohj$(10),tpvm$(8)
1 100 CLEAR:kokoaika=DATE:mp=50
1 1 REMark rjob (c) Timo Salmi